home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / Icon.gc < prev    next >
Text File  |  1999-04-21  |  482b  |  37 lines
  1. G4C - Shows given icon
  2.  
  3. WinBig -1 -1 200 100 IconView
  4. WinType 01000001
  5. ; WinBackground SOLID 3 0
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xOnLoad icon
  10.     guiopen icon.gc $icon
  11.  
  12. xOnReload icon
  13.     delay 20
  14.     extract icon file name
  15.     setwintitle icon.gc '$name'
  16.     ChangeIcon icon.gc 1 -1 -1 $icon
  17.  
  18. xOnOpen icon
  19.     extract icon file name
  20.     setwintitle icon.gc '$name'
  21.     ChangeIcon icon.gc 1 -1 -1 $icon
  22.  
  23. xOnClose
  24.     guiquit icon.gc
  25.  
  26. xOnRMB
  27.     guiquit icon.gc
  28.  
  29. xOnInactive
  30.     guiquit icon.gc
  31.  
  32. xIcon 10 10 ""
  33.     GadID 1
  34.  
  35.  
  36.  
  37.